--------------------------------------------------------------------------------
-- File: matrice.adb
--------------------------------------------------------------------------------

WITH Text_Io; USE Text_Io;

PACKAGE BODY Matrices IS

    PACKAGE Io IS NEW Integer_Io(INTEGER);

    PROCEDURE Put (M : IN Matrice) IS
        i,j : INTEGER;
    BEGIN
        i := 0;
        j := 0;
        FOR i IN M'First(1) .. M'Last(1) LOOP
            FOR j IN M'First(2) .. M'Last(2)  LOOP
                Io.Put(M(i,j));
            END LOOP;
            New_Line;
        END LOOP;
    END Put;

END Matrices;

